return "ROLLOVER CURSOR CHANGE" & RETURN & RETURN & "Changes the cursor when the mouse rolls over the current sprite. Choose one of the pointers included with Director, or specify two 1-bit 16x16 pixel bitmap members: one to act as the pointer image, the other to define the transparent/opaque areas of the cursor." & RETURN & RETURN & "TIPS:" & RETURN & "Place a single pixel at the topRight and bottomLeft of the image itself to create what is in fact a 17x17 pixel bitmap. These extra pixels will not appear in the cursor (they will be clipped) but the mask will align with them. This ensures that the opaque area surrounds the cursor image correctly." & RETURN & RETURN & "Set the regPoint of the image to define the cursor's hotspot." & RETURN & RETURN & "PARAMETERS:" & RETURN & "* EITHER - Use one of Director's built-in cursors." & RETURN & RETURN & "* OR - Check button to use your own bitmap images." & RETURN & "* Custom Image " & RETURN & "* Custom Mask" & RETURN & RETURN & "To use custom images, ensure that the check button is on."
end
on getBehaviorTooltip me
return "Use with graphic sprites." & RETURN & RETURN & "Modify the cursor when the" & RETURN & "mouse rolls over the sprite." & RETURN & "Use built-in or custom images."
end
on beginSprite me
SetSpriteCursor(me)
end
on endSprite me
mySprite.cursor = mySavedCursor
end
on SetSpriteCursor me
if spriteNum < 1 then
if the runMode = "Author" then
ErrorAlert(me)
end if
end if
mySprite = sprite(me.spriteNum)
mySavedCursor = mySprite.cursor
if voidp(myCursorType) then
mySprite.cursor = myBuiltInCursor
exit
end if
case myCursorType of
"Built-in cursor":
mySprite.cursor = myBuiltInCursor
"Cursor member":
myCursorMember = value(myCursorMember)
cursorList = [myCursorMember.number]
mySprite.cursor = cursorList
"1 bit bitmap":
myCustomCursor = value(myCustomCursor)
cursorList = [myCustomCursor.number]
if myCustomMask <> "no mask" then
myCustomMask = value(myCustomMask)
cursorList.append(myCustomMask.number)
end if
mySprite.cursor = cursorList
end case
end
on ErrorAlert me
behaviorName = string(me)
delete word 1 of behaviorName
delete char -30001 of behaviorName
delete char -30001 of behaviorName
alert("BEHAVIOR ERROR: Frame " & the frame & ", Sprite " & me.spriteNum & RETURN & RETURN & "Behavior " & behaviorName & "has been attached to the frame." & RETURN & RETURN & "It will have no effect, and should be removed from the behavior channel.")
end
on getPropertyDescriptionList me
if not (the currentSpriteNum) then
exit
end if
propertyDescriptionList = [:]
cursorTypes = []
cursorMembersList = GetCursorMembers(me)
cursorBitmapsList = GetCursorBitmaps(me)
cursorMasksList = duplicate(cursorBitmapsList)
cursorMasksList.addAt(1, "no mask")
cursorMembers = cursorMembersList.count()
bitmapCursors = cursorBitmapsList.count()
if cursorMembers then
cursorTypes.append("Cursor member")
end if
if bitmapCursors then
cursorTypes.append("1 bit bitmap")
end if
if cursorTypes.count() then
cursorTypes.addAt(1, "Built-in cursor")
propertyDescriptionList.addProp(#myCursorType, [#comment: "CHOICE OF TYPE - Use which type of cursor?", #format: #string, #range: cursorTypes, #default: cursorTypes[1]])
